VERSION 5.00 Begin VB.Form frmExit BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Exit" ClientHeight = 1515 ClientLeft = 4635 ClientTop = 2685 ClientWidth = 1545 Icon = "frmExit.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 1515 ScaleWidth = 1545 Begin VB.CommandButton cmdDone Caption = "Done" Height = 375 Left = 120 TabIndex = 1 Top = 960 Width = 1215 End Begin VB.Label Label1 BackColor = &H80000012& Caption = " This command exits all of Doorways." ForeColor = &H000000FF& Height = 735 Left = 120 TabIndex = 0 Top = 120 Width = 1215 End Attribute VB_Name = "frmExit" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdDone_Click() frmExit.Hide frmFile.Show End Sub